home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / sauter.zip / C-CMMI.MF < prev    next >
Text File  |  1990-09-16  |  3KB  |  77 lines
  1. % Compute the font construction parameters for the Computer
  2. % Modern Math Italic family.  The parameters are mostly the
  3. % same as Computer Modern Roman, with differences as noted
  4. % below.
  5.  
  6.  
  7. input c-cmr;
  8.  
  9. letter_fit#:=      % extra space added to all sidebars
  10.     (if design_size <  6: (-(design_size*40)+300)
  11.  elseif design_size <  7: (-(design_size*20)+180)
  12.  elseif design_size <  8: (-(design_size*40)+320)
  13.                     else: (0)fi)/360pt#;
  14.  
  15. crisp#:=           % diameter of serif corners
  16.     (if design_size <  7: ((design_size*5)+35)
  17.  elseif design_size <  8: (design_size*10)
  18.                     else: (80)fi)/360pt#;
  19.  
  20. tiny#:=            % diameter of rounded corners
  21.     (if design_size <  7: ((design_size*5)+35)
  22.  elseif design_size <  8: (design_size*10)
  23.                     else: (80)fi)/360pt#;
  24.  
  25. stem#:=            % lowercase stem breadth
  26.     (if design_size <  8: ((design_size*20)+55)
  27.  elseif design_size <  9: ((design_size*15)+95)
  28.  elseif design_size < 10: ((design_size*10)+140)
  29.                     else: ((design_size*15)+90)fi)/360pt#;
  30.  
  31. curve#:=           % lowercase curve breadth
  32.     (if design_size <  8: ((design_size*25)+50)
  33.  elseif design_size < 10: ((design_size*20)+90)
  34.                     else: ((design_size*15)+140)fi)/360pt#;
  35.  
  36. flare#:=           % diameter of bulbs or breadth of terminals
  37.     (if design_size <  6: ((design_size*20)+85)
  38.  elseif design_size <  8: ((design_size*30)+25)
  39.  elseif design_size <  9: ((design_size*25)+65)
  40.  elseif design_size < 10: ((design_size*30)+20)
  41.                     else: ((design_size*15)+170)fi)/360pt#;
  42.  
  43. cap_stem#:=        % uppercase stem breadth
  44.     (if design_size <  7: ((design_size*25)+60)
  45.  elseif design_size <  8: ((design_size*20)+95)
  46.  elseif design_size <  9: ((design_size*25)+55)
  47.  elseif design_size < 10: ((design_size*20)+100)
  48.                     else: ((design_size*15)+150)fi)/360pt#;
  49.  
  50. cap_curve#:=       % uppercase curve breadth
  51.     (if design_size <  7: ((design_size*30)+55)
  52.  elseif design_size <  8: ((design_size*25)+90)
  53.  elseif design_size < 10: ((design_size*30)+50)
  54.                     else: ((design_size*15)+200)fi)/360pt#;
  55.  
  56. cap_ess#:=         % breadth in middle of uppercase s
  57.     (if design_size <  6: ((design_size*50)-115)
  58.  elseif design_size <  7: ((design_size*40)-55)
  59.  elseif design_size <  8: ((design_size*35)-20)
  60.  elseif design_size <  9: ((design_size*40)-60)
  61.  elseif design_size < 10: ((design_size*30)+30)
  62.                     else: (-(design_size*5)+380)fi)/360pt#;
  63.  
  64. jut#:=             % protrusion of lowercase serifs
  65.     (if design_size <  7: ((design_size*20)+70)
  66.  elseif design_size < 10: (design_size*30)
  67.                     else: ((design_size*25)+50)fi)/360pt#;
  68.  
  69. slant:=            % tilt ratio $(\Delta x/\Delta y)$
  70.                            0.25;
  71.  
  72. variant_g:=        % should an italic-style g be used?
  73.                           true;
  74.  
  75. math_fitting:=     % should math-mode spacing be used?
  76.                           true;
  77.